10 CLS:INPUT"DATE(JJ/MM/AA)";A$:B$=LEFT$(A$,2):C$=MID$(A$,4,2):D$=RIGHT$(A$,2):B=VAL(B$):C=VAL(C$):D=VAL(D$):E$="033614625035":F=D+INT(D/4)+B+VAL(MID$(E$,C,1)):G=INT(F/7):H=G*7:I=F-H:IFD/4=INT(D/4)ANDC<3ANDD>0THENI=I-1
20 J$="*DIMLUNMARMERJEUVENSAM":PRINTMID$(J$,I*3+2,3):PRINT:PRINT"ENTER POUR CONTINUER":FORJ=0TO0:J=INKEY$=""):NEXTJ:IFPEEK(14400)=1THEN10ELSESEND